﻿Public Class Frm_DangKy

    
    Private Sub btnNhapLai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNhapLai.Click
        txtCMND.Text = ""
        txtIDDangNhap.Text = ""
        txtMatKhauTV.Text = ""
        txtNhapLaiMK.Text = ""
        txtSDT.Text = ""
        txtTenThanhVien.Text = ""
        cbHSSV.Checked = False
    End Sub

    Private Sub btnDangKy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDangKy.Click
        If (txtCMND.Text = "" Or txtIDDangNhap.Text = "" Or txtMatKhauTV.Text = "" Or txtNhapLaiMK.Text = "" Or txtSDT.Text = "" Or txtTenThanhVien.Text = "") Then
            MessageBox.Show("Vui lòng nhập đủ thông tin", "Thông báo")
        ElseIf (txtMatKhauTV.Text <> txtNhapLaiMK.Text) Then
            MessageBox.Show("Mật khẩu nhập lại không đúng", "Thông báo")
        Else
            Dim tv As ThanhVienDTO = New ThanhVienDTO()
            Dim bus As ThanhVienBUS = New ThanhVienBUS()
            Dim kt As String = "select * from THANHVIEN where IDThanhVien='" + txtIDDangNhap.Text + "'"
            Dim dt = New DataTable
            dt = bus.GetTable(kt)
            If (dt.Rows.Count = 0) Then
                tv.CMND = txtCMND.Text
                tv.TenThanhVien = txtTenThanhVien.Text
                tv.IDThanhVien = txtIDDangNhap.Text
                If (cbHSSV.Checked = True) Then
                    tv.HSSV = True
                Else
                    tv.HSSV = False
                End If

                tv.SDT = txtSDT.Text
                tv.MatKhau = txtMatKhauTV.Text

                bus.Insert(tv)
                MessageBox.Show("Đăng ký thành công", "Thông báo")
            Else
                MessageBox.Show("Ten dang nhap da ton tai", "Thông báo")
            End If
        End If
    End Sub
End Class